home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / XFILLHEP.PAS < prev    next >
Pascal/Delphi Source File  |  1985-11-04  |  297b  |  18 lines
  1. {$IBoDecl}
  2. {$IRestores}
  3. {$IFillHeap}
  4.  
  5. BEGIN
  6.  
  7.    Mark ( HeapTop );
  8.    New ( Page[1] );
  9.    for i := 1 to 26 do
  10.    begin
  11.       FillHeap ( Page[1], 1, 1, 80, 25,
  12.                  Chr(64+i), 7 );
  13.       RestoreScreen ( Page[1] );
  14.       delay(150);
  15.    end;
  16.    Release ( HeapTop );
  17.  
  18. END.